Check out my twitter script by CMXads
| Sell your soul Believeth in me an hath everlasting life | Goth and Gore Gifts Shop right now or else! | Sharp Stuff Switchblades Icepicks and german knives | Evil gear Christmas is almost here |
here are some of the best and useful php scripts and snippets to help in your projects. Php displayed below. Use the search for specific script lookups. Click the category links to view scripts in Javascript and cgi. To add your own script click the link and add your useful script example.
html webpage builder one page cgi script post content from form makes webpage
cgi cms webpage template web page builder
#!/usr/bin/perl
#
use CGI qw(:standard);
$cgi = $ENV{'SCRIPT_NAME'};
print "Content-type: text/html\n\n";
# Template file uploaded - generate form
# --------------------------------------
if ($file = param('filename')) {
$tmpfile=tmpFileName($file);
while (<$file>) {
$template .= $_;
}
close $file;
print <<"END";
<HTML>
<HEAD><TITLE>Data Entry Form</TITLE></HEAD>
<BODY BGCOLOR=white>
<BR>
<CENTER>
<TABLE BORDER=1 BORDERCOLOR="#333333" CELLSPACING=0 CELLPADDING=3>
<TR>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT COLOR="white" SIZE="+1"><B>Data Entry Form</B></FONT></TD>
</TR>
<TR>
<TD BGCOLOR="#CCCCCC">
<FORM ACTION="$cgi" METHOD=POST>
<TABLE BORDER=1>
<TR><TH>Field Name</TH><TH>Value</TH></TR>
END
foreach ($template =~ /<%([^\%]+)%>/gs) {
$keys{$_}++;
}
foreach (sort keys %keys) {
print "<TR><TD ALIGN=RIGHT><B>$_</B></TD><TD ALIGN=LEFT><TEXTAREA NAME=\"$_\" COLS=50 ROWS=3 WRAP=VIRTUAL></TEXTAREA></TD></TR>\n";
}
print <<"END";
<TR><TD COLSPAN=2 ALIGN=CENTER><BR><INPUT TYPE="submit" VALUE="Submit"><BR><BR></TD></TR>
<TR><TD COLSPAN=2 ALIGN=CENTER><TEXTAREA NAME="template" ROWS=10 COLS=80>$template</TEXTAREA></TD></TR>
</TABLE>
</FORM>
<HR>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
END
}
# Form submitted - generate output
# --------------------------------
elsif (param('template')) {
$template = param('template') || "No template";
foreach $key ( param() ) {
next if ($key eq "template");
$template =~ s|<%$key%>|param($key)|egs;
}
print "$template";
}
# First load - prompt for template
# --------------------------------
else {
print <<"END";
<HTML>
<HEAD><TITLE>HTML Replace Utility</TITLE></HEAD>
<BODY BGCOLOR=white>
<BR>
<CENTER>
<TABLE BORDER=1 BORDERCOLOR="#333333" CELLSPACING=0 WIDTH=400 CELLPADDING=3>
<TR>
<TD ALIGN=CENTER BGCOLOR="#000080"><FONT COLOR="white" SIZE="+1"><B>HTML Replace Utility</B></FONT></TD>
</TR>
<TR>
<TD BGCOLOR="#CCCCCC">
<br>
Use this script to easily replace an HTML template file with values you specify in a form.<P>
Specify your HTML template file here, click submit, and a form will be generated for you.<p>
<FORM ACTION="$cgi" METHOD="POST" ENCTYPE="multipart/form-data">
<B> Template Filename: </B> <INPUT TYPE="FILE" NAME="filename" SIZE=30>
<INPUT TYPE="SUBMIT" VALUE="submit">
</FORM>
<HR>
<table border=0 align=center>
<tr>
<td align=center>
<FORM ACTION="" method="get">
<input type="submit" value="Give Feedback">
</FORM>
</td>
<td align=center>
<FORM ACTION="" method="get">
<input type="submit" value="Script Support">
</FORM>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
END
}